From 68bf5842d4900ea2c397ec8ab0e6c13c64d4643c Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 10 Apr 2001 18:35:31 +0000
Subject: [PATCH] (Fcompare_strings): Fix return values.

---
 src/fns.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/fns.c b/src/fns.c
index 4bd577772fd..ceda1cfbf41 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -326,9 +326,9 @@ If string STR1 is greater, the value is a positive number N;\n\
 	 past the character that we are comparing;
 	 hence we don't add or subtract 1 here.  */
       if (c1 < c2)
-	return make_number (- i1);
+	return make_number (- i1 + XINT (start1));
       else
-	return make_number (i1);
+	return make_number (i1 - XINT (start1));
     }
 
   if (i1 < end1_char)
-- 
2.30.2